From: Daiki Ueno <ueno@unixuser.org>
Date: Tue, 26 Oct 2010 01:02:08 +0000 (+0900)
Subject: Make epa-mail-encrypt handle local-part only recipients.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5943
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=48bb628e337fd75194038cb99cc82b10b09490a5;p=emacs.git

Make epa-mail-encrypt handle local-part only recipients.

* epa-mail.el (epa-mail-encrypt): Handle local-part only
recipients (Bug#7280).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04adde6b36b..f8541762cbe 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-26  Daiki Ueno  <ueno@unixuser.org>
+
+	* epa-mail.el (epa-mail-encrypt): Handle local-part only
+	recipients (Bug#7280).
+
 2010-10-25  Glenn Morris  <rgm@gnu.org>
 
 	* term/common-win.el (x-handle-switch): Simplify with pop.
diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el
index 09b30868115..2b29e80daa5 100644
--- a/lisp/epa-mail.el
+++ b/lisp/epa-mail.el
@@ -154,7 +154,9 @@ If no one is selected, symmetric encryption will be performed.  "
 			    (epa-mail--find-usable-key
 			     (epg-list-keys
 			      (epg-make-context epa-protocol)
-			      (concat "<" recipient ">"))
+			      (if (string-match "@" recipient)
+				  (concat "<" recipient ">")
+				recipient))
 			     'encrypt))
 		      (unless (or recipient-key
 				  (y-or-n-p